00100 (DE >PREDLET< (%N)(OUTRUL %N(FUNCTION(LAMBDA NIL 00200 (COND((MEMQ(STK1)(APPEND PREPREDLET INFPREDLET))(STK1)))))))